home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Online / Tango / Install_Tango < prev    next >
Encoding:
Text File  |  2001-08-18  |  6.7 KB  |  204 lines
  1. ;Tango 1.0 installation script
  2. (set #intro (cat "\n\nWelcome to Tango\n\nCopyright © 1999-2001\n\nSören Forsberg\n") )
  3. (set #info (cat "\n\nThis installer will\n\ninstall Tango in Samba:\n\na new directory 'Tango' will be created.\n\n") )
  4. (message #intro)
  5. (welcome) 
  6. (message #info)
  7.  
  8. (if (= (exists "samba:tango") 0 )  (makedir "Samba:Tango") )
  9.  
  10. ;copy main
  11. (copyfiles (source "Tango")   (dest "samba:Tango")    (infos) (all))
  12.  
  13. ;copy drawer icon
  14. (copyfiles    (prompt "Copying drawer icon")    (source "Tango.info")    (dest "Samba:") )
  15.  
  16. ;copy catalogs
  17. ;(copyfiles (source "Locale")   (dest "sys:Locale")    (infos) (all))
  18.  
  19. (set #catnofind "Can not find this catalog in this  archive.\n This probably means that the selected catalog for\nTango isn't updated\n\nIf you want to make locales,\nse the guide for information.\n\n")
  20. (set #whatcat "\nTango has no internal catalog.\nSelect the Language catalog you wish to install.\nThat language has to be installed in Prefs:Locales.\n\nIf you wish to make locales read the documentation.\n* languages are updated.\n ")
  21. (set #whatcathelp "If your language is not among the choises,\nYou must choose another language.")
  22.  
  23.  
  24.  
  25. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  26. (set lan 0)
  27. (if (= "english" lanfound) (set lan 0)) (if (= "deutsch"  lanfound) (set lan 1))
  28. (if (= "svenska" lanfound) (set lan 2)) (if (= "español" lanfound) (set lan 3)) 
  29. (if (= "russian" lanfound) (set lan 4)) (if (= "français" lanfound) (set lan 5)) 
  30. (set #English    "English")  (set #Deutsch    "Deutsch")
  31. (set #Svenska    "Svenska")  (set #Español    "Español")
  32. (set #Russian    "Russian")  (set #Français    "Français")  
  33.  
  34. (if (> (exists ("ENV:i.høld.0")) 0)   (set l0 (getenv "ENV:i.høld.0")) ) 
  35. (if (> (exists ("ENV:i.høld.1")) 0)   (set l1 (getenv "ENV:i.høld.1")) )
  36. (if (> (exists ("ENV:i.høld.2")) 0)   (set l2 (getenv "ENV:i.høld.2")) )
  37. (run "delete env:i.høld.#?")
  38. (set catalog (askchoice (choices  "English*" "Deutsch" "Svenska*" "Español" "Russian" "Français*")            
  39.                         (prompt #whatcat )
  40.                         
  41.                     (help   #whatcathelp)
  42.                         (default lan)
  43.              )
  44. )
  45.  
  46. (if (= catalog 0)  (set #lcat #English))  
  47. (if (= catalog 1)  (set #lcat #Deutsch))
  48. (if (= catalog 2)  (set #lcat #Svenska))  
  49. (if (= catalog 3)  (set #lcat #Español))  
  50. (if (= catalog 4)  (set #lcat #Russian))  
  51. (if (= catalog 5)  (set #lcat #Français))  
  52.  
  53. (if (<> #lcat "N/A")
  54.  (
  55.       (if (> (exists (cat "Catalogs/" #lcat "/tango.catalog")) 0)
  56.       (
  57.         (
  58.          (if (< (exists "Samba:Tango/Catalogs") 2) (makedir "Samba:Tango/Catalogs") )
  59.          (if (< (exists (cat "Samba:Tango/Catalogs/" #lcat)) 2) (makedir (cat "Samba:Tango/Catalogs/" #lcat)) )
  60.          (copyfiles (source (cat "Catalogs/" #lcat"/tango.catalog")) (dest (cat "Samba:Tango/Catalogs/" #lcat)))
  61.         )
  62.   
  63.  
  64.       )
  65.  
  66.  
  67.   (message (cat "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
  68.   )
  69.  
  70.  
  71. ); End if Catalog dir
  72.   (message (cat "Error:" "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
  73. ); 
  74.  
  75. (if (exists "c:defaultbrowser")
  76.         (message "OBSOLETE!\n\nYou have defaultbrowser installed.\n\n"
  77.         "Defaultbrowser is discontinued and will be removed \n"
  78.         "from your system. Tango now uses openurl instead.")
  79. )
  80. (run "delete c:defaultbrowser")
  81. (run 'delete "sys:prefs/default browser.info"')
  82. (run "delete envarc:defaultbrowser")
  83.  
  84. (set #isthere (cat "You have Tango installed."))
  85. (run "status >ENV:Tango_inst com samba:tango/tango")
  86. (if (> (exists ("env:Tango_inst")) 0) (set tangoon (getenv "Tango_inst")) )
  87. (if (<> tangoon "") (set #isthere (cat "You have Tango installed and running.\nPlease shutdown Tango before proceeding. ")) )
  88.  
  89. (if (exists "ENV:tango.prefs")
  90.     (
  91.         (message (cat #isthere"\n\n"
  92.         "All librarys and locales\n"
  93.         "will now be flushed."))
  94.         (run "avail flush > NIL:")
  95.  
  96.         
  97.     )
  98. )
  99.  
  100. (run "status >ENV:Tango_inst com samba:tango/tango")
  101. (if (> (exists ("env:Tango_inst")) 0) (set tangoon (getenv "Tango_inst")) )
  102. (if (<> tangoon "") (message "You didn't shutdown Tango.\nBefore you start Tango you should:\nReboot, make 'Avail flush'\nor run the installer again!"))
  103.  
  104.  
  105. ;BEGIN Share 1.0 installation script
  106. (set osver (/ (getversion "LIBS:version.library") 65536))
  107. (if (= osver 44) (set workbench "3.5")) 
  108.  
  109.  
  110. (set #share (cat "\n\nThe new Share utility will now be installed.\n\nThis will install Share in C:\nand if available\n" #lcat ".catalog in LOCALE:catalogs/" #lcat"\n\n") )
  111.  
  112. (message #share)
  113.  
  114. ;copy share
  115. (copyfiles
  116.     (prompt "Copying share")
  117.     (source "Tango/Extras/Share/Share")
  118.     (dest "C:")
  119. )
  120. (copyfiles
  121.     (prompt "Copying icon")
  122.     (source "Tango/Extras/Share/Share.info")
  123.     (dest "C:")
  124. )
  125.  
  126.  
  127.  
  128. (if (> osver 44)
  129.     (if
  130.         (askbool
  131.             (prompt "AmigaOS 3.5 detected.\n\nWould you like to add Share to the tools-menu?\nThis will install a 'Share directory'.\nShare.menu will be added to WBStartup\n")
  132.             (help "Really?.")
  133.             (choices "Install" "Don't install")
  134.             (default 1)
  135.             )
  136.         (
  137.             (copyfiles
  138.                     (prompt "Copying menu")
  139.                     (source "Tango/Extras/Share/OS3_5/WBStartup/share.menu")
  140.                     (dest "sys:wbstartup/")
  141.             )
  142.             (copyfiles
  143.                     (prompt "Copying menu icon")
  144.                     (source "Tango/Extras/Share/OS3_5/WBStartup/share.menu.info")
  145.                     (dest "sys:wbstartup")
  146.             )
  147.             (copyfiles
  148.                     (prompt "Copying menu script")
  149.                     (source "Tango/Extras/Share/OS3_5/S/share.WB")
  150.                     (dest "S:")
  151.             )
  152.             (if
  153.                 (askbool
  154.                     (prompt "Would you like to add the menu now?\nElse the menu will be available after reboot.\n")
  155.                     (help "Really?.")
  156.                     (choices "Yes" "No")
  157.                     (default 1)
  158.                 ) 
  159.                     (run (cat "run sys:rexxc/rx sys:wbstartup/share.menu") )
  160.             )    
  161.         )
  162.     )
  163. )
  164.  
  165.       (if (> (exists (cat "Catalogs/" #lcat "/share.catalog")) 0)
  166.       
  167.         (
  168.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "Locale:Catalogs/" #lcat)) )
  169.          (copyfiles (source (cat "Catalogs/" #lcat "/share.catalog")) (dest (cat "Locale:Catalogs/" #lcat)))
  170.         )
  171.   
  172.         (message (cat "\nCatalogs/" #lcat "/share.catalog\n\n" #catnofind))
  173.       )
  174.  
  175.  
  176. ;END Share 1.0 installation script
  177.  
  178. (set donow (askoptions (choices "Tango readme (text)" "Tango guide  (html)" "Open Tango drawer (OS3.5)" "Launch Tango" )
  179.               (prompt "\nInstallation is complete!\n\nSelect what to do now.\n")
  180.                     (help   "")
  181.                   (default 2)
  182.       )
  183. )
  184.  
  185. (if (IN donow 0) (run "run sys:utilities/multiview samba:tango/readme" ))
  186.  
  187.  
  188. (if (IN donow 1)
  189.     (if (> (exists ("c:openurl")) 0) (run "openurl file://localhost/samba:tango/guide.html"))
  190. )
  191.  
  192. ;RX "ADDRESS DOPUS.1;'lister new samba:'"
  193. ;RX "ADDRESS WORKBENCH;'ICON WINDOW root NAMES Samba: OPEN'" funkar inte då ikonen inte är på wb
  194.  
  195. (if (IN donow 2)
  196.       (run "Sys:rexxc/RX opendrawer.rexx")
  197.   )
  198.  
  199. (if (IN donow 3)
  200.       (run "samba:tango/tango" )
  201.   )
  202.  
  203. (exit (quiet))
  204.